home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / Virtual User 1.0b5 / Virtual User / InstallVUHelp next >
Encoding:
Text File  |  1990-10-05  |  1.1 KB  |  40 lines  |  [TEXT/MPS ]
  1. #  InstallVUHelp script
  2. #
  3. #   This script is designed to install VU Help information into the MPW.Help
  4. #    file of the MPW 3.0 release or later.
  5. #
  6. Set SavedCaseSensitive ""
  7. Set SavedCaseSensitive {CaseSensitive}
  8. Set CaseSensitive 0
  9. If `Exists "{ShellDirectory}MPW.Help"`
  10.     Open "{ShellDirectory}MPW.Help"
  11.     Target "{Active}"
  12.     Find •
  13.     Find /•∂tVU∂t∂t∂t∂t∂# Virtual User test tool/ ||
  14.         Begin
  15.             Find /•∂tUserVariables/
  16.             Replace /•/ "∂tVU∂t∂t∂t∂t∂# Virtual User test tool∂n"
  17.         End #If not already installed
  18.     Find /•VU∂t∂t∂t∂t∂# Virtual User test tool/ ||
  19.         Begin
  20.             Find /•UserVariables/
  21.             Find /•-/
  22.             if `Exists VU.Help` != ""
  23.                 catenate VU.Help > "{Target}".§
  24.             else
  25.                 set exit 0
  26.                 Set helppath ""
  27.                 Beep
  28.                 (Set helppath `getfilename -m 'Find help file VU.Help'`) ∑ dev:null
  29.                 set exit 1
  30.                 if "{helppath}" != ""
  31.                     catenate "{helppath}" > "{Target}".§
  32.                 end #if helppath dialog not cancelled
  33.             end #if VU.Help exists
  34.         End #If not already installed
  35.  
  36.     Save "{ShellDirectory}MPW.Help"
  37.     Close "{ShellDirectory}MPW.Help"
  38. End #if MPW.Help exists    
  39.  
  40. Set CaseSensitive SavedCaseSensitive